約 3,835,138 件
https://w.atwiki.jp/mortalonline/pages/62.html
Butcher 狩り等で倒したMOBからLootした際に得られるCarcass（死体）をButcher（解体）し アイテム化するのにつかわれるスキルですが これが無いと、大半のMOBは狩る価値が無いと言っても過言ではありません。 解体によって得られるアイテムに関しては、お手数ですが獣型と人型をご覧になってください。 使用スキル やり方 Skinning Knife（野外解体） Butcher Workbench（作業台解体） 生物別解体リスト 使用スキル 解体を行う過程で使うスキルは、大きく分けて 全体に影響するExtraction＆Crafting Appliances系列のスキルと 各々のアイテムを抽出するのに影響を与えるLore系列スキルに分かれます。 前者は必須と言えますが、後者は解体する死体を絞れば 習得しなくても済む場合がある為、一概にすべて必要であるとは言い切れません。 大体のスキルは自動的に習得してくれますが、一部の高級Loreは本を読んで習得しないと アイテム自体が産出されないので注意しましょう。 すべてのButcher系列スキルを習得すると合計700Point消費することになりますが これらすべてのスキルは、INTがボーナスステータスとなる為 INTへステータスポイントを100Point振っておけば、70Point節約する事が出来ます。 赤=Primary 、 緑=Secondary ■ Extraction ┗ Skinning ■ Crafting Appliances ┣ Butchery Appliances ←作業台解体専用スキル ┗ Skinning Knife ←野外解体専用スキル ■ Material Lore ┣ Animal Materials ┃ ┣ Skeleton Lore ┃ ┃ ┣ Exoskeleton Lore ┃ ┃ ┃ ┣ Crepite Lore ┃ ┃ ┃ ┣ Dense Crepite Lore ┃ ┃ ┃ ┗ Carapace Lore ┃ ┃ ┃ ┣ Crustacean Carapace Lore ┃ ┃ ┃ ┣ Reptile Carapace Lore ┃ ┃ ┃ ┣ Arthropod Carapace Lore ┃ ┃ ┃ ┣ Pansar Carapace Lore ┃ ┃ ┃ ┣ Ivory Carapace Lore ┃ ┃ ┃ ┗ Heavy Carapace Lore ┃ ┃ ┗ Endoskeleton Lore ┃ ┃ ┣ Ironbone Lore ┃ ┃ ┣ Ophionite Lore ┃ ┃ ┗ Bone Tissue Lore ┃ ┣ Dental Lore ┃ ┃ ┣ Ophium Lore ┃ ┃ ┣ Molarium Lore ┃ ┃ ┣ Incisium Lore ┃ ┃ ┣ Emalj Lore ┃ ┣ Scales Lore ┃ ┃ ┣ Leptoid Scales Lore ┃ ┃ ┣ Ophiosquami Lore ┃ ┃ ┣ Ophiodermi Lore ┃ ┃ ┣ Horned Scales Lore ┃ ┃ ┣ Keeled Scales Lore ┃ ┃ ┣ Plate Scales Lore ┃ ┃ ┣ Ganoid Scales Lore ┃ ┃ ┣ Placoid Scales Lore ┃ ┃ ┗ Pansar Scales Lore ┃ ┣ Keratin Lore ┃ ┃ ┣ Horn Lore ┃ ┃ ┣ Great Horn Lore ┃ ┃ ┣ Compact Horn Lore ┃ ┃ ┗ Ophiocorni Lore ┃ ┗ Mammal Skin Lore ┃ ┣ Fur Lore ┃ ┃ ┣ Ground Fur Lore ┃ ┃ ┣ Guard Fur Lore ┃ ┃ ┣ Ironfur Lore ┃ ┃ ┣ Ironwool Lore ┃ ┃ ┗ Wool Lore ┃ ┗ Leather Lore ┃ ┣ Fullgrain Leather Lore ┃ ┣ Rawhide Lore ┃ ┣ Quality Leather Lore ┃ ┣ Boiled Leather Lore ┃ ┣ Brained Leather Lore ┃ ┗ Skin Lore ┗ Textile Lore ┣ Ironwool Lore ┣ Wool Lore ┣ Cotton Lore ┣ Ironsilk Lore ┗ Silk Lore やり方 まず、Extraction/Skinning/Crafting Appliancesの３つのスキルが無いと ログに「作業台を使う知識があなたにはありません」と表示されてしまい 下記２通りの解体方法が実行できない事に注意してください。 また、ExtractionとCrafting Appliancesスキルを習得していない様であれば Tour ExtracterというNPCが各町のどこかにある 小さな風車の麓に居ますので、彼らから無料で習得する事が出来ます。 Skinning Knife（野外解体） 【要】Skinning Knife 死体は非常に重く、持ち運びが不便な品物です。 野外解体は野外（どこでも可能）で解体を行い継続的な狩りを実現しますが その反面、入手量は通常の1/5以下、且野外解体では入手出来ないアイテムがあるので Butcher Workbenchを使用する事を強くお勧めします。 まず、死体を入手したらExtractionスキルを発動します すると、上の様な小窓が表示されますので Item to extract の欄に死体を入れます。 （Catalyst use の欄は鉱石関連のみ使いますので、解体には関係ありません） 後は、右下の Process のボタンを押して頂ければ、ログに 「～秒間お待ちください」とメッセージが出ますので、しばしその場で待ちます。 この時、その場からあまりに離れすぎると解体はストップしてしまい その場に戻らないと解体は終わりません。 もし、開始した場所が分からなくなった場合は、リログすれば肉はインベントリに戻ります。 Butcher Workbench（作業台解体） 【要】Butchery Appliancesが最低30必要 解体によって、より効率的にアイテムを産出する方法として作業台解体があり 作業台自体はすべて町に配置されています。（以下、見た目） 町まで輸送が必要があり、町までの輸送手段が一番の問題と言えます。 しかし、作業台解体でしか手に入らないアイテムもある為 殆どの人はこちらの方法で死体を解体しています。 作業台解体を行う場合は、各町に設置されている作業台の前まで行き 画面中央に作業台を合わせるようにしてExtractionを使えば Workbenchの欄が Butcher となります。 後は死体を Item to extractの欄に入れ Precess のボタンをクリックすれば、ログに「～秒間お待ちください」と メッセージが出ますので、しばしその場で待ちます。 野外解体と同じく、その場からあまりに離れすぎると解体はストップしてしまい その場に戻らないと解体は終わりません。 生物別解体リスト ※Butchery Appliancesスキル、各素材Loreスキル、ZoologyスキルALL100時に作業台で10000 carcassesを解体した場合の取得量と金額 Dire Wolf 59400c/5,9g 2000 Bone Tissue 3500 Dire Wolf Meat 1200 Fullgrain Leather 800 Guard Fur 600 Ironwool 500 Molarium Urial 57010c/5,7g 1200 Bone Tissue 200 Emalj 880 Fullgrain Leather 1600 Horn 150 Tallow 3500 Urial Meat 1000 Wool Rabbit 55200c/5,5g 1200 Bone Tissue 3000 Ground Fur 4000 Rabbit Meat Water Lizard 52400c/5,2g 2200 Bone Tissue 600 Horned Scales 600 Incisium 1100 Keeled Scales 4000 Water Lizard Meat Weasel 49700c/5g 1500 Bone Tissue 400 Emalj 3000 Ground Fur 3000 Weasel Meat Spiderling 47600c/4,8g 1000 Crepite 520 Silk 5000 Spiderling Meat Lynx 20760c/4,7g 2000 Bone Tissue 1000 Ground Fur 2500 Lynx Meat 320 Molarium 1600 Quality Leather Cougar 46000c/4,6g 2000 Bone Tissue 3000 Cougar Meat 400 Ground Fur 400 Molarium 2000 Quality Leather Nitre Worker 41900c/4,2g 1200 Arthropod Carapace 1600 Crepite 3500 Nitre Worker Meat 400 Silk Terrorbird 40600c/4,1g 800 Bone Tissue 600 Incisium 600 Keeled Scales 2500 Terrorbird Meat Tribe Rat 35920c/3,6g 2800 Bone Tissue 100 Emalj 880 Ground Fur 2000 Quality Leather 3000 Tribe Rat Meat Belbus 34200c/3,4g 3000 Belbus Meat [no price] 2400 Bone Tissue 600 Ground Fur 500 Guard Fur 880 Fullgrain Leather 500 Molarium Springbok 31630c/3,2g 600 Bone Tissue 160 Emalj 700 Horn 4000 Springbok Meat 150 Tallow 1200 Quality Leather Wolf 29300c/2,9g 1000 Bone Tissue 1200 Fullgrain Leather 1000 Ground Fur 400 Molarium 4000 Wolf Meat Nitre Guardian 28320c/2,8g 620 Arthropod Carapace 80 Dense Crepite 880 Crepite 200 Heavy Carapace 2600 Nitre Guardian Meat White Bear 23835c/2,4g 920 Bone Tissue 320 Ground Fur 120 Guard Fur 140 Molarium 400 Quality Leather 75 Tallow 1500 White Bear Meat Razorback 22850c/2,3g 300 Compact Horn 600 Fullgrain Leather 700 Ironbone 150 Molarium 1400 Razorback Meat 50 Tallow Mountain Spider 22836c/2,3g 839 Arthropod Carapace 140 Dense Crepite 1000 Crepite 3500 Mountain Spider Meat Black Bear 20760c/2,1g 1500 Black Bear Meat 920 Bone Tissue 320 Ground Fur 120 Guard Fur 140 Molarium 400 Quality Leather Taurdog 20600c/2,1g 920 Bone Tissue 400 Fullgrain Leather 320 Ground Fur 200 Guard Fur 200 Molarium 2000 Taurdog Meat Brown Bear 19250c/1,9g 880 Bone Tissue 1500 Brown Bear Meat 300 Ground Fur 100 Guard Fur 120 Molarium 50 Tallow 360 Quality Leather Wisent 17810c/1,8g 1200 Bone Tissue 200 Emalj 880 Fullgrain Leather 440 Horn 50 Tallow 1600 Wisent Meat 440 Wool Gaur 12305c/1,2g 720 Bone Tissue 160 Compact Horn 200 Emalj 720 Fullgrain Leather 1000 Gaur Meat 500 Horn 25 Tallow Nitre Flinger 9900c/1g 1200 Arthropod Carapace 1600 Crepite 3500 Nitre Flinger Meat Pig 7930c/0,8g 800 Bone Tissue 100 Emalj 4000 Pig Meat 800 Fullgrain Leather 250 Tallow Horse 5080c/0,5g 600 Bone Tissue 160 Emalj 1000 Fullgrain Leather 1200 Horse Meat Bush Pig 4100c/0,4g 1000 Bone Tissue 200 Emalj 4000 Bush Pig Meat [no price] 700 Fullgrain Leather 100 Tallow pansar scale -- 名無しさん (2014-02-02 19 20 04) 名前 コメント
https://w.atwiki.jp/nagisa45/
@wikiへようこそ ウィキはみんなで気軽にホームページ編集できるツールです。 このページは自由に編集することができます。 メールで送られてきたパスワードを用いてログインすることで、各種変更（サイト名、トップページ、メンバー管理、サイドページ、デザイン、ページ管理、等）することができます まずはこちらをご覧ください。 @wikiの基本操作 用途別のオススメ機能紹介 @wikiの設定/管理 分からないことは？ @wiki ご利用ガイド よくある質問 無料で会員登録できるSNS内の@wiki助け合いコミュニティ @wiki更新情報 @wikiへのお問合せフォーム 等をご活用ください @wiki助け合いコミュニティの掲示板スレッド一覧 #atfb_bbs_list その他お勧めサービスについて 大容量１Ｇ、PHP/CGI、MySQL、FTPが使える無料ホームページは@PAGES 無料ブログ作成は@WORDをご利用ください 2ch型の無料掲示板は@chsをご利用ください フォーラム型の無料掲示板は@bbをご利用ください お絵かき掲示板は@paintをご利用ください その他の無料掲示板は@bbsをご利用ください 無料ソーシャルプロフィールサービス @flabo(アットフラボ) おすすめ機能 気になるニュースをチェック 関連するブログ一覧を表示 その他にもいろいろな機能満載！！ @wikiプラグイン @wiki便利ツール @wiki構文 @wikiプラグイン一覧 まとめサイト作成支援ツール バグ・不具合を見つけたら？ 要望がある場合は？ お手数ですが、お問合せフォームからご連絡ください。
https://w.atwiki.jp/scratcher-blacklist/pages/10.html
要注意Scratcher一覧 ↓ 一覧です。ページは誰でも編集可能なので、知っている要注意Scratcherの情報をつけ足してください。 + ... リスト @you1022 - フォロー要求しまくっている。そのせいで始めてから1日でフォロワーが150人近く行っている。 @Anonimasu_AlphaTeam - 最近被害が増えているanonimasuハッキング事件の黒幕らしき人物。でも面白がっている誰かが偽っている可能性もあるので、うかつに関わらないほうがよさそう。 @-nekoL- - いろいろな人のスタジオに作品を乱入していることがある。自分のスタジオに招待するときは注意。 名前 コメント
https://w.atwiki.jp/all-scratcher/pages/11.html
norumakuとは日本の著名なscratcherである。 特徴 高校生であり、好きなものは懐かしいものと室外機と夏らしい 代表作は音ゲー極ノシリーズ、カービィ大戦争、SEAWARが挙げられる。 日本のscratcherのフォロワー数ランキングで9位であり、NHK_for_Schoolのアカウントのフォロワー数を約1000フォロワー超えている。 イラストも描き、シンプルで可愛らしく雰囲気の良い絵柄が特徴。 田舎が舞台の新作漫画の構想を一年前から練っている。 生粋のずとまよ信者であり、自分の作品よりもずとまよ楽曲を宣伝している(かもしれない)。 メイドインアビスも好きであり、その関係の作品を多数共有している。 他のscratcherとも親交が深い まとめるとすごい人である。 下の欄からわかる通り本人巡回済みである。 「〇〇やります」と行って期待させた挙句なかなかやらない自称引き伸ばし魔である
https://w.atwiki.jp/sicpstudygroup/pages/85.html
naga Todo 4.50 Exercise 4.35 (define (an-integer-between low high) (require ( = low high)) (amb low (an-integer-between (+ low 1) high))) (define (a-pythagorean-triple-between low high) (let ((i (an-integer-between low high))) (let ((j (an-integer-between i high))) (let ((k (an-integer-between j high))) (require (= (+ (* i i) (* j j)) (* k k))) (display (list i j k)) (newline) (amb))))) ;;;;;Amb-Eval input ;;(a-pythagorean-triple-between 1 20) ;;;;; Starting a new problem ;;(3 4 5) ;;(5 12 13) ;;(6 8 10) ;;(8 15 17) ;;(9 12 15) ;;(12 16 20) ;;;;; There are no more values of ;;(a-pythagorean-triple-between 1 20) Exercise 4.36 ;; amb は search 戦略として depth first search を使用しているため、 ;; 単純に an-integer-between を an-integer-starting-from に置換え ;; たのでは、特定の変数の値が大きくなるだけとなり上手く行かない。 ;; ex3.69 では interleave を使って特定の stream だけが大きくなるの ;; を防いでいた。 (define (a-pythagorean-triple-from low) (let ((k (an-integer-starting-from low))) (let ((j (an-integer-between low k))) (let ((i (an-integer-between low j))) (require (= (+ (* i i) (* j j)) (* k k))) (list i j k))))) ;;(a-pythagorean-triple-from 20) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;(20 21 29) ;;;;;Amb-Eval input ;;try-again ;;;;;Amb-Eval value ;;(21 28 35) Exercise 4.37 ;; 確認する組合わせの数は n=high-low+1 とすると ;; ex4.35 では n*n*n ;; Ben版 では n*n ;; で Ben は正しいといえる。 ;; sqrt をとった値を整数かどうか判定するのはちょっと危ない気もするが、 ;; 現実的には問題がない？ Exercise 4.38 (define (multiple-dwelling) (let ((baker (amb 1 2 3 4 5)) (cooper (amb 1 2 3 4 5)) (fletcher (amb 1 2 3 4 5)) (miller (amb 1 2 3 4 5)) (smith (amb 1 2 3 4 5))) (require (distinct? (list baker cooper fletcher miller smith))) (require (not (= baker 5))) (require (not (= cooper 1))) (require (not (= fletcher 5))) (require (not (= fletcher 1))) (require ( miller cooper)) ; (require (not (= (abs (- smith fletcher)) 1))) (require (not (= (abs (- fletcher cooper)) 1))) (display (list (list baker baker) (list cooper cooper) (list fletcher fletcher) (list miller miller) (list smith smith))) (newline) (amb))) ;;;;;Amb-Eval input ;;(multiple-dwelling) ;;;;; Starting a new problem ;;((baker 1) (cooper 2) (fletcher 4) (miller 3) (smith 5)) ;;((baker 1) (cooper 2) (fletcher 4) (miller 5) (smith 3)) ;;((baker 1) (cooper 4) (fletcher 2) (miller 5) (smith 3)) ;;((baker 3) (cooper 2) (fletcher 4) (miller 5) (smith 1)) ;;((baker 3) (cooper 4) (fletcher 2) (miller 5) (smith 1)) ;;;;; There are no more values of ;;(multiple-dwelling) Exercise 4.39 ;; distinct? の位置を変えて時間を計測。 ;; 「大きな変化はない」という結果になった。 (define (multiple-dwelling) (let ((baker (amb 1 2 3 4 5)) (cooper (amb 1 2 3 4 5)) (fletcher (amb 1 2 3 4 5)) (miller (amb 1 2 3 4 5)) (smith (amb 1 2 3 4 5))) (require ; (a) (distinct? (list baker cooper fletcher miller smith))) (require (not (= baker 5))) (require (not (= cooper 1))) (require (not (= fletcher 5))) (require (not (= fletcher 1))) (require ( miller cooper)) #;(require ; (b) (distinct? (list baker cooper fletcher miller smith))) (require (not (= (abs (- fletcher cooper)) 1))) #;(require ; (c) (distinct? (list baker cooper fletcher miller smith))) (display (list (list baker baker) (list cooper cooper) (list fletcher fletcher) (list miller miller) (list smith smith))) (newline) (amb))) ;;;;; Starting a new problem (a) ;;((baker 1) (cooper 2) (fletcher 4) (miller 3) (smith 5)) ;; ;;# real-time 4.229 ;;# user-time 4.2159999999999975 ;;# system-time 0.0 ;;;;; Starting a new problem (b) ;;((baker 1) (cooper 2) (fletcher 4) (miller 3) (smith 5)) ;; ;;# real-time 4.277 ;;# user-time 4.266 ;;# system-time 0.010000000000000009 ;;;;; Starting a new problem (c) ;;((baker 1) (cooper 2) (fletcher 4) (miller 3) (smith 5)) ;; ;;# real-time 4.254 ;;# user-time 4.246 ;;# system-time 0.0 Exercise 4.40 (define (multiple-dwelling) (let ((cooper (amb 2 3 4)) (miller (amb 3 4 5))) (require ( miller cooper)) (let ((fletcher (amb 2 3 4))) (require (not (= (abs (- fletcher cooper)) 1))) (let ((beker (amb 1 2 3 4)) (smith (amb 1 2 3 4 5))) (require (distinct? (list beker cooper fletcher miller smith))) (display (list (list beker beker) (list cooper cooper) (list fletcher fletcher) (list miller miller) (list smith smith))) (newline) (amb))))) ;;;;; Starting a new problem ;;((beker 1) (cooper 2) (fletcher 4) (miller 3) (smith 5)) ;; ;;# real-time 0.331 ;;# user-time 0.33099999999999996 ;;# system-time 0.0 ;;;;;Amb-Eval value ;;# undef (define (multiple-dwelling2) (let ((cooper (amb 1 2 3 4 5))) (require (not (= cooper 1))) (let ((miller (amb 1 2 3 4 5))) (require ( miller cooper)) (let ((fletcher (amb 1 2 3 4 5))) (require (not (= fletcher 5))) (require (not (= fletcher 1))) (require (not (= (abs (- fletcher cooper)) 1))) (let ((beker (amb 1 2 3 4 5))) (require (not (= beker 5))) (let ((smith (amb 1 2 3 4 5))) (require (distinct? (list beker cooper fletcher miller smith))) (display (list (list beker beker) (list cooper cooper) (list fletcher fletcher) (list miller miller) (list smith smith))) (newline) (amb))))))) ;;# real-time 0.39 ;;# user-time 0.3809999999999998 ;;# system-time 0.0 ;;;;;Amb-Eval value ;;# undef (define (multiple-dwelling3) (let ((cooper (amb 2 3 4)) (miller (amb 3 4 5)) (fletcher (amb 2 3 4)) (beker (amb 1 2 3 4)) (smith (amb 1 2 3 4 5))) (require (distinct? (list beker cooper fletcher miller smith))) (require ( miller cooper)) (require (not (= (abs (- fletcher cooper)) 1))) (display (list (list beker beker) (list cooper cooper) (list fletcher fletcher) (list miller miller) (list smith smith))) (newline) (amb))) ;;# real-time 0.798 ;;# user-time 0.8009999999999997 ;;# system-time 0.0 ;;;;;Amb-Eval value ;;# undef Exercise 4.41 ;; ２章でやった組合せのリストを得る premutations。 ;; 今見ても難しい。 (define (filter predicate sequence) (cond ((null? sequence) ()) ((predicate (car sequence)) (cons (car sequence) (filter predicate (cdr sequence)))) (else (filter predicate (cdr sequence))))) (define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence))))) (define (flatmap proc seq) (accumulate append () (map proc seq))) (define (permutations s) (if (null? s) (list ()) (flatmap (lambda (x) (map (lambda (p) (cons x p)) (permutations (remove x s)))) s))) (define (remove item sequence) (filter (lambda (x) (not (= x item))) sequence)) ;; (define (baker set) (list-ref set 0)) (define (cooper set) (list-ref set 1)) (define (fletcher set) (list-ref set 2)) (define (miller set) (list-ref set 3)) (define (smith set) (list-ref set 4)) (define sets (permutations (list 1 2 3 4 5))) (define (filter-p set) (and (not (= (baker set) 5)) (not (= (cooper set) 1)) (not (= (fletcher set) 5)) (not (= (fletcher set) 1)) ( (miller set) (cooper set)) ; (not (= (abs (- (smith set) (fletcher set))) 1)) (not (= (abs (- (fletcher set) (cooper set))) 1)))) (define (multiple-dwelling) (map (lambda (set) (display (list (list baker (baker set)) (list cooper (cooper set)) (list fletcher (fletcher set)) (list miller (miller set)) (list smith (smith set)))) (newline)) (filter filter-p sets))) ;;gosh (multiple-dwelling) ;;((baker 1) (cooper 2) (fletcher 4) (miller 3) (smith 5)) ;;((baker 1) (cooper 2) (fletcher 4) (miller 5) (smith 3)) ;;((baker 1) (cooper 4) (fletcher 2) (miller 5) (smith 3)) ;;((baker 3) (cooper 2) (fletcher 4) (miller 5) (smith 1)) ;;((baker 3) (cooper 4) (fletcher 2) (miller 5) (smith 1)) ;;(# undef # undef # undef # undef # undef ) Exercise 4.42 (define (require-Lair a b) (if a (require (not b)) (require b))) (define (Lairs) (let ((Betty (amb 1 2 3 4 5)) (Ethel (amb 1 2 3 4 5)) (Joan (amb 1 2 3 4 5)) (Kitty (amb 1 2 3 4 5)) (Mary (amb 1 2 3 4 5))) (require (distinct? (list Betty Ethel Joan Kitty Mary))) (require-Lair (= Kitty 2) (= Betty 3)) (require-Lair (= Ethel 1) (= Joan 2)) (require-Lair (= Joan 3) (= Ethel 5)) (require-Lair (= Kitty 2) (= Mary 4)) (require-Lair (= Mary 4) (= Betty 1)) (display (list (list Betty Betty) (list Ethel Ethel) (list Joan Joan) (list Kitty Kitty) (list Mary Mary)) ) (newline) (amb))) ;;;;;Amb-Eval input ;;(Lairs) ;;;;; Starting a new problem ;;((Betty 3) (Ethel 5) (Joan 2) (Kitty 1) (Mary 4)) ;;;;; There are no more values of ;;(Lairs) Exercise 4.43 ;; Lorna の父親は Colonel Downing (define (yacht) ;; father daughter yacht (let ((Moore (cons Ann Lorna)) (Downing (cons (amb Gabrielle Lorna Rosalind) Melissa)) (Hall (cons (amb Gabrielle Lorna) Rosalind)) (Hood (cons Melissa Gabrielle)) (Parker (cons (amb Gabrielle Lorna Rosalind) Ann))) (let ((alist (list Moore Hood Hall Downing Parker))) (require (distinct? (map car alist))) (require (eq? (cdr (assq Gabrielle alist)) (car Parker))) (display (list (list Moore Moore) (list Hood Hood) (list Hall Hall) (list Downing Downing) (list Parker Parker))) (newline)) (amb))) ;;;;; Starting a new problem ;;((Moore (Ann . Lorna)) (Hood (Melissa . Gabrielle)) (Hall (Gabrielle . Rosalind)) (Downing (Lorna . Melissa)) (Parker (Rosalind . Ann))) ;;;;; There are no more values of ;; Moore の娘が Ann という条件を外すと組合せは２通りとなる。 (define (yacht2) ;; father daughter yacht (let ((Moore (cons (amb Gabrielle Rosalind Ann) Lorna)) (Downing (cons (amb Gabrielle Lorna Rosalind Ann) Melissa)) (Hall (cons (amb Gabrielle Lorna Ann) Rosalind)) (Hood (cons Melissa Gabrielle)) (Parker (cons (amb Gabrielle Lorna Rosalind) Ann))) (let ((alist (list Moore Hood Hall Downing Parker))) (require (distinct? (map car alist))) (require (eq? (cdr (assq Gabrielle alist)) (car Parker))) (display (list (list Moore Moore) (list Hood Hood) (list Hall Hall) (list Downing Downing) (list Parker Parker))) (newline)) (amb))) ;;;;; Starting a new problem ;;((Moore (Gabrielle . Lorna)) (Hood (Melissa . Gabrielle)) (Hall (Ann . Rosalind)) (Downing (Rosalind . Melissa)) (Parker (Lorna . Ann))) ;;((Moore (Ann . Lorna)) (Hood (Melissa . Gabrielle)) (Hall (Gabrielle . Rosalind)) (Downing (Lorna . Melissa)) (Parker (Rosalind . Ann))) ;;;;; There are no more values of Exercise 4.44 ;; リスト要素の引算 (define (-list list-a list-b) (filter (lambda (x) (not (memq x list-b))) list-a)) ;; 追加されるカラムの斜め方向の安全性を確認する。 (define (attack? cols new-col) (define (iter cols n) (cond ((null? cols) #f) ((= (abs (- (car cols) new-col)) n) #t) (else (iter (cdr cols) (- n 1))))) (iter cols (length cols))) ;; 横方向の安全性をバックトラックを使わずに確認する版。 (define (8q-a) (define rows (list 1 2 3 4 5 6 7 8)) (define board ()) (let ((col1 (amb 1 2 3 4))) (set! board (list col1)) (let ((col2 (an-element-of (-list rows board)))) (require (not (attack? board col2))) (set! board (list col1 col2)) (let ((col3 (an-element-of (-list rows board)))) (require (not (attack? board col3))) (set! board (list col1 col2 col3)) (let ((col4 (an-element-of (-list rows board)))) (require (not (attack? board col4))) (set! board (list col1 col2 col3 col4)) (let ((col5 (an-element-of (-list rows board)))) (require (not (attack? board col5))) (set! board (list col1 col2 col3 col4 col5)) (let ((col6 (an-element-of (-list rows board)))) (require (not (attack? board col6))) (set! board (list col1 col2 col3 col4 col5 col6)) (let ((col7 (an-element-of (-list rows board)))) (require (not (attack? board col7))) (set! board (list col1 col2 col3 col4 col5 col6 col7)) (let ((col8 (an-element-of (-list rows board)))) (require (not (attack? board col8))) (set! board (list col1 col2 col3 col4 col5 col6 col7 col8)) (display board) (display " ") (display (map (lambda (x) (- 9 x)) board)) (newline) (amb) ))))))))) ;;# real-time 21.899 ;;# user-time 21.78200000000001 ;;# system-time 0.010000000000000009 ;;;;;Amb-Eval value ;;# undef ;; 横方向の安全性をバックトラックを逐次使って確認する版 (define (8q-b) (define board ()) (let ((col1 (amb 1 2 3 4))) (set! board (list col1)) (let ((col2 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (cons col2 board))) (require (not (attack? board col2))) (set! board (list col1 col2)) (let ((col3 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (cons col3 board))) (require (not (attack? board col3))) (set! board (list col1 col2 col3)) (let ((col4 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (cons col4 board))) (require (not (attack? board col4))) (set! board (list col1 col2 col3 col4)) (let ((col5 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (cons col5 board))) (require (not (attack? board col5))) (set! board (list col1 col2 col3 col4 col5)) (let ((col6 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (cons col6 board))) (require (not (attack? board col6))) (set! board (list col1 col2 col3 col4 col5 col6)) (let ((col7 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (cons col7 board))) (require (not (attack? board col7))) (set! board (list col1 col2 col3 col4 col5 col6 col7)) (let ((col8 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (cons col8 board))) (require (not (attack? board col8))) (set! board (list col1 col2 col3 col4 col5 col6 col7 col8)) (display board) (display " ") (display (map (lambda (x) (- 9 x)) board)) (newline) (amb) ))))))))) ;;# real-time 33.231 ;;# user-time 33.048 ;;# system-time 0.019999999999999907 ;;;;;Amb-Eval value ;;# undef ;; 横方向・斜め方向の安全性をまとめてバックトラックで確認する版 (define (8q-c) (define board ()) (let ((col1 (amb 1 2 3 4)) (col2 (amb 1 2 3 4 5 6 7 8)) (col3 (amb 1 2 3 4 5 6 7 8)) (col4 (amb 1 2 3 4 5 6 7 8)) (col5 (amb 1 2 3 4 5 6 7 8)) (col6 (amb 1 2 3 4 5 6 7 8)) (col7 (amb 1 2 3 4 5 6 7 8)) (col8 (amb 1 2 3 4 5 6 7 8))) (require (distinct? (list col1 col2 col3 col4 col5 col5 col7 col8))) (require (and (not (attack? (list col1) col2)) (not (attack? (list col1 col2) col3)) (not (attack? (list col1 col2 col3) col4)) (not (attack? (list col1 col2 col3 col4) col5)) (not (attack? (list col1 col2 col3 col4 col5) col6)) (not (attack? (list col1 col2 col3 col4 col5 col6) col7)) (not (attack? (list col1 col2 col3 col4 col5 col6 col7) col8)))) (set! board (list col1 col2 col3 col4 col5 col6 col7 col8)) (display board) (display " ") (display (map (lambda (x) (- 9 x)) board)) (newline) )) ;;;;;Amb-Eval input ;;(time (8q-c)) ;;; Starting a new problem ;;# real-time 15797.877 ;;# user-time 14527.22 ;;# system-time 0.5309999999999999 ;;;Amb-Eval value ;;# undef Exercise 4.45 ;; 文法用語が入ると見づらいので、元の単語だけ出力する。訳は？？？ (define (ex4.45) (let ((s (parse (the professor lectures to the student in the class with the cat)))) (display s)(newline) (amb))) ;;;Amb-Eval input (ex4.45) ;;; Starting a new problem ((the professor) (((lectures (to (the student))) (in (the class))) (with (the cat)))) ;猫と一緒にクラスで生徒に教える。 ((the professor) ((lectures (to (the student))) (in ((the class) (with (the cat)))))) ;猫のいるクラスで生徒に教える。 ((the professor) ((lectures (to ((the student) (in (the class))))) (with (the cat)))) ;猫と一緒にクラスの生徒に教える。 ((the professor) (lectures (to (((the student) (in (the class))) (with (the cat)))))) ;クラスの猫と一緒の生徒に教える。 ((the professor) (lectures (to ((the student) (in ((the class) (with (the cat)))))))) ;猫のいるクラスの生徒に教える。 ;;; There are no more values of (ex4.45) Exercise 4.46 ;;文法は、例えば ;;(define (parse-sentence) ;; (list sentence ;; (parse-noun-phrase) ;; (parse-verb-phrase))) ;;(define (parse-simple-noun-phrase) ;; (list simple-noun-phrase ;; (parse-word articles) ;; (parse-word nouns))) ;;のように句の並びで定義され句は語の並びで定義されている。 ;;一方、文の解析は ;;(define (parse-word word-list) ;; (require (not (null? *unparsed*))) ;; (require (memq (car *unparsed*) (cdr word-list))) ;; (let ((found-word (car *unparsed*))) ;; (set! *unparsed* (cdr *unparsed*)) ;; (list (car word-list) found-word))) ;;のように、文の最初から語を取り出し、それが文法により句、文を構成 ;;するかどうかを確認している。 ;;これは 先に読み出した語は、リスト中の先の式によって使われることを ;;前提とした方法となっている。 Exercise 4.47 ;; 文が parse できる間は動作する。parse し尽くした状態で try-again ;; を入力すると loop となる。これは parse-varb-phrase が amb と再帰 ;; に対し終了条件を持たない構造となっているから。 ;; 一方 may-be-extend は extend がある場合に限り再帰を行っている。 (define (parse-verb-phrase) (amb (parse-word verbs) (list ; verb=phrase (parse-verb-phrase) (parse-prepositional-phrase)))) ;;;;;Amb-Eval input ;;(parse (the cat eats)) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;((the cat) eats) ;;;;;Amb-Eval input ;;try-again -- loop ;;;;;Amb-Eval input ;;(parse (the cat eats in the class)) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;((the cat) (eats (in (the class)))) ;;;;;Amb-Eval input ;;try-again -- loop ;;;;;Amb-Eval input ;;(parse (the cat eats in the class with the student)) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;((the cat) (eats (in ((the class) (with (the student)))))) ;;;;;Amb-Eval input ;;try-again ;;;;;Amb-Eval value ;;((the cat) ((eats (in (the class))) (with (the student)))) ;;;;;Amb-Eval input ;;try-again -- loop ;; こちらはすぐに loop (define (parse-verb-phrase) (amb (list ; verb=phrase (parse-verb-phrase) (parse-prepositional-phrase)) (parse-word vervs))) ;;;;;Amb-Eval input ;;(parse (the cat eats)) ;;;;; Starting a new problem ;; -- loop Exercise 4.48 ;; 形容詞を扱えるように拡張。副詞と重文は省略。 ;; simple-noun-phrase = article noun ;; adjective-noun-phrase = article adjective + noun ;; simple/adjective-noun-phrase = simple-noun-phrase | adjective-noun-phrase ;; noun-phrase = simple/adjective-noun-phrase prepositional-phrase * (define adjectives (adjective small big black white)) (define (parse-simple/adjective-noun-phrase) (amb (list simple-noun-phrase (parse-word articles) (parse-word nouns)) (list adjective-noun-phrase (parse-word articles) (parse-adjectives) (parse-word nouns)))) (define (parse-adjectives) (define (iter adjs) (amb adjs (iter (append adjs (list (parse-word adjectives)))))) (iter (list (parse-word adjectives)))) (define (parse-noun-phrase) (define (maybe-extend noun-phrase) (amb noun-phrase (maybe-extend (list noun-phrase noun-phrase (parse-prepositional-phrase))))) (maybe-extend (parse-simple/adjective-noun-phrase))) ;;;;;Amb-Eval input ;;(parse (the cat eats)) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;(sentence (simple-noun-phrase (article the) (noun cat)) (verb eats)) ;;;;;Amb-Eval input ;;(parse (the small cat eats)) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;(sentence (adjective-noun-phrase (article the) ((adjective small)) (noun cat)) (verb eats)) ;;;;;Amb-Eval input ;;(parse (the small white cat eats)) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;(sentence (adjective-noun-phrase (article the) ((adjective small) (adjective white)) (noun cat)) (verb eats)) Exercise 4.49 ;; 解答になっているのかな？ (define (parse-word word-list) #;(list (car word-list) (list-ref word-list (+ (random (- (length word-list) 1)) 1))) (list-ref word-list (+ (random (- (length word-list) 1)) 1)) ) (define c 1) (define (generate-6-sentences) (display (parse ())) (newline) (if ( = c 6) done (begin (permanent-set! c (+ c 1)) (amb)))) ;;;;;Amb-Eval input ;;(generate-6-sentences) ;;;;; Starting a new problem ;;((a student) sleeps) ;;((a student) (sleeps (with (the class)))) ;;((a student) ((sleeps (with (the class))) (with (the cat)))) ;;((a student) (((sleeps (with (the class))) (with (the cat))) (to (the cat)))) ;;((a student) ((((sleeps (with (the class))) (with (the cat))) (to (the cat))) (to (the cat)))) ;;((a student) (((((sleeps (with (the class))) (with (the cat))) (to (the cat))) (to (the cat))) (with (a class)))) ;;;;;Amb-Eval value ;;done Exercise 4.50 Exercise 4.51 ;; analyze に追加 ((passignment? exp) (analyze-passignment exp)) ;; (define (passignment? exp) (tagged-list? exp permanent-set!)) (define (analyze-passignment exp) (let ((var (assignment-variable exp)) (vproc (analyze (assignment-value exp)))) (lambda (env succeed fail) (vproc env (lambda (val fail2) (set-variable-value! var val env) (succeed ok fail2))) fail))) ;; set! なら出力される count は常に１ (define (ex4_51) (define count 0) (let ((x (an-element-of (a b c))) (y (an-element-of (a b c)))) (permanent-set! count (+ count 1)) ;;(set! count (+ count 1)) (require (not (eq? x y))) (display (list x y count)) (newline) (amb))) ;;;;;Amb-Eval input ;;(ex4_51) ;;;;; Starting a new problem ;;(a b 2) ;;(a c 3) ;;(b a 4) ;;(b c 6) ;;(c a 7) ;;(c b 8) ;;;;; There are no more values of ;;(ex4_51) Exercise 4.52 ;; analyze に追加 ((if-fail? exp) (analyze-if-fail exp)) ;; (define (if-fail? exp) (tagged-list? exp if-fail)) (define (if-fail-usual exp) (cadr exp)) (define (if-fail-fail exp) (caddr exp)) (define (analyze-if-fail exp) (let ((uproc (analyze (if-fail-usual exp))) (fproc (analyze (if-fail-fail exp)))) (lambda (env succeed fail) (uproc env (lambda (u-value fail2) (succeed u-value fail2)) (lambda () (fproc env succeed fail)))))) ; (define (ex4_52a) (if-fail (let ((x (an-element-of (1 3 5)))) (require (even? x)) x) all-odd)) (define (ex4_52b) (if-fail (let ((x (an-element-of (1 3 5 8)))) (require (even? x)) x) all-odd)) ;;;;;Amb-Eval input ;;(ex4_52a) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;all-odd ;;;;;Amb-Eval input ;;(ex4_52b) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;8 Exercise 4.53 (define (ex4_53) (let ((pairs ())) (if-fail (let ((p (prime-sum-pair (1 3 5 8) (20 35 110)))) (permanent-set! pairs (cons p pairs)) (amb)) pairs))) ;;;;;Amb-Eval input ;;(ex4_53) ;;;;; Starting a new problem ;;;;;Amb-Eval value ;;((8 35) (3 110) (3 20)) Exercise 4.54 ;; analyze に追加 ((sf-require? exp) (amb-analyze-sf-require exp)) ;; (define (sf-require? exp) (tagged-list? exp sf-require)) (define (require-predicate exp) (cadr exp)) (define (analyze-sf-require exp) (let ((pproc (analyze (require-predicate exp)))) (lambda (env succeed fail) (pproc env (lambda (pred-value fail2) (if (not pred-value) (fail2) (succeed ok fail2))) fail)))) ;; (define (prime-sum-pair-for-ex4_54 list1 list2) (define (an-element-of items) (sf-require (not (null? items))) (amb (car items) (an-element-of (cdr items)))) (let ((a (an-element-of list1)) (b (an-element-of list2))) (sf-require (prime? (+ a b))) (list a b))) (define (ex4_54a) (display (prime-sum-pair-for-ex4_54 (1 3 5 8) (20 35 110))) (newline) (amb)) (define (ex4_54b) (display (prime-sum-pair (1 3 5 8) (20 35 110))) (newline) (amb)) ;;;;;Amb-Eval input ;;(ex4_54a) ;;;;; Starting a new problem ;;(3 20) ;;(3 110) ;;(8 35) ;;;;; There are no more values of ;;(ex4_54a)
https://w.atwiki.jp/englishlanguage/pages/947.html
HOY... Hoy, Cyrus. 1956-62. "The shares of Fletcher and his collaboration in renaissance drama". Studies in Bibliography 7 (1956) 129-146; 9 (1957) 143-162; 11 (1958) 85-106; 12 (1959) 91-116; 13 (1960) 77-108; 14 (1961) 45-67; 15 (1962) 71-90. Hoy, Cyrus. 1976. "Critical and aesthetic problems of collaboration in renaissance drama". Research Opportunities in Renaissance Drama 19 3-6. Hoy, Cyrus. 1984. "Fletcherian Romantic Comedy". Research Opportunities in Renaissance Drama 27 3-11. Hoy, Cyrus. 1985. "Massinger as a collaborator The plays with Fletcher and others", in Philip Massinger a Critical Reassessment, ed. D. Howard, pp. 51-82. Cambridge Cambridge University Press.
https://w.atwiki.jp/all-scratcher/pages/22.html
Sheeptch
https://w.atwiki.jp/witcher/pages/77.html
①Chapter 1開始時に自動的に始まる ②[Of Monsters and Men]を酒場での戦闘まで進め、ReverendへBeastの出現の原因について話す ③Salamanderの隠れ家へ侵入する ④Salamanderとの戦闘後、隠れ家のリーダーからAzar Javedが聞ける ⑤Chapter 2へ続く
https://w.atwiki.jp/all-scratcher/pages/15.html
rupito1219とは、日本のScratcherである。 現在中学2年生であり、岐阜県在住である事がわかっている。 現在、rupito1219のアカウントは永久BANをされている。 概要 rupito1219は、日本のScratcherで、無能運営により永久BANを二度経験するほどの害悪Scratcher。 特筆すべき点は、やはりそのアカウントの多さである。 歴代アカウントをまとめると、 rupito1219 wankodaisuki tabitabisan(乗っ取りによりアカウントが削除されている) rishetta(現在別人が使用)06S- tabitabisan_sabu kaze_hiita_man と、多くのアカウントを利用して運営から逃げているScratchに貢献している。 また、偽マフティー教の開設者である。 さらに今までにファンを名乗るアカウントも出てきており、彼はストーカーファンを多く獲得している。 なぜファンを獲得しているのか？ なぜ人気なのかを探ると、彼の人物像だと思われる。 友達の手助け(プログラム、デザイン、論争など) 進められたものは取り入れる 誰とでも仲良くなる 個人の問題に向き合う など、様々な角度から人の良さが伺える。 そして、アカウントが変わるに連れて、 性格がおかしくなっている性格が変わっていっていることから反抗期などに入り、年相応の成長をしているようだ。
https://w.atwiki.jp/all-scratcher/pages/13.html
igU1212とは日本の無名なscratcherである。 特徴 ネタ絵を得意とする絵師 このwikiを制作した張本人である。